
   1 .
   2 .
   3 .
   4 . "NAME" COMBINED WITH "NICOMACHUS"
   5 .REVISED FROM *BASIC COMPUTER GAMES* DAVID AHL
   6 .CREATIVE COMPUTING, BY HANK CHIUPPI.
   7 :return 
  10 clear 
  20 print "HELLO! I AM THE BALLY     COMPUTER.
  30 input "HOW MANY LETTERS IN YOUR NAME?"L
  40 if L<5print "MY,YOU HAVE A VERY SHORT NAME!"
  50 if L>15print "WOW! YOU HAVE A VERY LONG NAME!
  60 print "BY THE WAY, WHAT IS YOUR  NAME?
  70 for A=1to L;B=KP;@(A)=B
  80 next A
  90 print "HELL0!";gosub 1000
 100 gosub 2000
 110 print " --OOPS! SORRY";print "ABOUT THAT.
 120 gosub 2000
 130 print "HELLO!";gosub 3000
 140 gosub 2000
 150 print " --THAT'S BETTER.
 160 input "WOULD YOU LIKE to PLAY A  GAME? (1=YES  2=NO)"G
 170 if G=1goto 200
 180 print "IT WAS NICE MEETING YOU   ";gosub 1000
 190 STOP
 200 print "OK ";gosub 3000
 210 print " --PICK A NUMBER";print "BETWEEN 7 AND 1000";print "DON'T TELL ME WHAT IT IS.
 220 gosub 2000
 230 input "YOUR # div 3 HAS A REMAINDER     OF?"Q
 240 input "YOUR # div 5 HAS A REMAINDER     OF?"R
 250 input "YOUR # div 7 HAS A REMAINDER     OF?"S
 255 D=0
 260 D=(70mul Q)+(21mul R)+(15mul S)
 270 if D<=105goto 300
 280 D=D-105
 290 goto 270
 300 print "YOUR # IS ",D;print "RIGHT?
 310 input "(1=YES  2=NO)"X
 320 if X=1goto 340
 330 print "I THINK YOUR ARITHMETIC     IS IN ERROR!!
 340 print "WANT to TRY AGAIN?";gosub 3000
 350 input "(1=YES  2=NO)"Y
 360 if Y=1goto 200
 370 goto 180
1000 for C=Lto 1step -1
1010 TV=@(C)
1020 next C
1030 return 
2000 for T=1to 2000
2010 next T
2020 return 
3000 for C=1to L;TV=@(C)
3010 next C
3020 return 